Imports System
Imports System.Configuration
Imports System.Data


Namespace SGW.ComunicadorWeb

    Public Class ComunicadorWebInfo


#Region "Variables"
        ' local property declarations
        Private _PortalId As Integer
        Private _HiloID As Int32
        Private _Hil_FechaCreacion As DateTime
        Private _Hil_Status As Int32
        Private _Pendiente As Boolean
        Private _EsperandoRespuesta As Boolean
        Private _EsperandoCerrar As Boolean
        Private _Hil_UsuarioID As Int32
        Private _Hil_IDUltimoMensaje As Int32
        Private _Hil_Cerrado As Boolean
        Private _Hil_FechaCierre As DateTime
        Private _Hil_PrioridadId As Int32
        Private _Hil_CategoriaID As Int32
        Private _Hil_SubCategoriaID As Int32
        Private _Hil_Asunto As String
        Private _Pri_Nombre As String
        Private _Descripcion As String
        Private _SC_Descripcion As String
        Private _DisplayName As String
#End Region

#Region "Constructors"
        ' initialization
        Public Sub New()
        End Sub
#End Region

#Region "Public properties"
        ' public properties
        Public Property PortalId() As Integer
            Get
                Return _PortalId
            End Get
            Set(ByVal Value As Integer)
                _PortalId = Value
            End Set
        End Property


        Public Property HiloID() As Int32
            Get
                Return _HiloID
            End Get
            Set(ByVal Value As Int32)
                _HiloID = Value
            End Set
        End Property


        Public Property Hil_FechaCreacion() As DateTime
            Get
                Return _Hil_FechaCreacion
            End Get
            Set(ByVal Value As DateTime)
                _Hil_FechaCreacion = Value
            End Set
        End Property


        Public Property Hil_Status() As Int32
            Get
                Return _Hil_Status
            End Get
            Set(ByVal Value As Int32)
                _Hil_Status = Value
            End Set
        End Property

        'Public Property EsperandoRespuesta() As Boolean
        '    Get
        '        If (Hil_Status = 0) Then
        '            Return True
        '        End If
        '        Return _EsperandoRespuesta
        '    End Get
        '    Set(ByVal Value As Boolean)
        '        _EsperandoRespuesta = Value
        '    End Set
        'End Property

        'Public Property EsperandoCerrar() As Boolean
        '    Get
        '        Return _EsperandoCerrar
        '    End Get
        '    Set(ByVal Value As Boolean)
        '        _EsperandoCerrar = Value
        '    End Set
        'End Property

        'Public Property Pendiente() As Boolean
        '    Get
        '        Return _Pendiente
        '    End Get
        '    Set(ByVal Value As Boolean)
        '        _Pendiente = Value
        '    End Set
        'End Property


        'Public Property Status() As StatusType
        '    Get
        '        If (Pendiente = True) Then
        '            Return StatusType.Pendiente
        '        End If

        '        If (EsperandoRespuesta = False) Then
        '            Return StatusType.EsperandoRespuesta
        '        Else
        '            Return StatusType.Published
        '        End If
        '    End Get
        '    Set(ByVal Value As StatusType)
        '        Select Case Value
        '            Case StatusType.Draft
        '                _isDraft = True
        '                _isApproved = False
        '                Exit Select
        '            Case StatusType.AwaitingApproval
        '                _isDraft = False
        '                _isApproved = False
        '                Exit Select
        '            Case StatusType.Published
        '                _isDraft = False
        '                _isApproved = True
        '                Exit Select
        '            Case Else
        '                Exit Select
        '        End Select
        '    End Set
        'End Property

        Public Property Hil_UsuarioID() As Int32
            Get
                Return _Hil_UsuarioID
            End Get
            Set(ByVal Value As Int32)
                _Hil_UsuarioID = Value
            End Set
        End Property


        Public Property Hil_IDUltimoMensaje() As Int32
            Get
                Return _Hil_IDUltimoMensaje
            End Get
            Set(ByVal Value As Int32)
                _Hil_IDUltimoMensaje = Value
            End Set
        End Property


        Public Property Hil_Cerrado() As Boolean
            Get
                Return _Hil_Cerrado
            End Get
            Set(ByVal Value As Boolean)
                _Hil_Cerrado = Value
            End Set
        End Property


        Public ReadOnly Property ReadHil_CerradoText() As String
            Get
                If _Hil_Cerrado Then
                    Return ""
                Else
                    Return ""
                End If
            End Get
        End Property


        Public Property Hil_FechaCierre() As DateTime
            Get
                Return _Hil_FechaCierre
            End Get
            Set(ByVal Value As DateTime)
                _Hil_FechaCierre = Value
            End Set
        End Property


        Public Property Hil_PrioridadId() As Int32
            Get
                Return _Hil_PrioridadId
            End Get
            Set(ByVal Value As Int32)
                _Hil_PrioridadId = Value
            End Set
        End Property


        Public Property Hil_CategoriaID() As Int32
            Get
                Return _Hil_CategoriaID
            End Get
            Set(ByVal Value As Int32)
                _Hil_CategoriaID = Value
            End Set
        End Property


        Public Property Hil_SubCategoriaID() As Int32
            Get
                Return _Hil_SubCategoriaID
            End Get
            Set(ByVal Value As Int32)
                _Hil_SubCategoriaID = Value
            End Set
        End Property


        Public Property Hil_Asunto() As String
            Get
                Return _Hil_Asunto
            End Get
            Set(ByVal Value As String)
                _Hil_Asunto = Value
            End Set
        End Property

        Public Property Pri_Nombre() As String
            Get
                Return _Pri_Nombre
            End Get
            Set(ByVal Value As String)
                _Pri_Nombre = Value
            End Set
        End Property
        Public Property Descripcion() As String
            Get
                Return _Descripcion
            End Get
            Set(ByVal Value As String)
                _Descripcion = Value
            End Set
        End Property
        Public Property Sc_Descripcion() As String
            Get
                Return _SC_Descripcion
            End Get
            Set(ByVal Value As String)
                _SC_Descripcion = Value
            End Set
        End Property
        Public Property DisplayName() As String
            Get
                Return _DisplayName
            End Get
            Set(ByVal Value As String)
                _DisplayName = Value
            End Set
        End Property

#End Region


    End Class

    Public Class SGW_PrioridadesInfo

#Region "Private Members"
        Private _pri_ID As Integer
        Private _pri_PortalID As Integer
        Private _pri_Nombre As String = String.Empty
        Private _pri_Peso As Integer
#End Region

#Region "Constructors"
        ' initialization
        Public Sub New()
        End Sub

        Public Sub New(ByVal pri_ID As Integer, ByVal pri_PortalID As Integer, ByVal pri_Nombre As String, ByVal pri_Peso As Integer)
            Me.Pri_ID = pri_ID
            Me.Pri_PortalID = pri_PortalID
            Me.Pri_Nombre = pri_Nombre
            Me.Pri_Peso = pri_Peso
        End Sub
#End Region

#Region "Public Properties"
        Public Property Pri_ID() As Integer
            Get
                Return _pri_ID
            End Get
            Set(ByVal Value As Integer)
                _pri_ID = Value
            End Set
        End Property

        Public Property Pri_PortalID() As Integer
            Get
                Return _pri_PortalID
            End Get
            Set(ByVal Value As Integer)
                _pri_PortalID = Value
            End Set
        End Property

        Public Property Pri_Nombre() As String
            Get
                Return _pri_Nombre
            End Get
            Set(ByVal Value As String)
                _pri_Nombre = Value
            End Set
        End Property

        Public Property Pri_Peso() As Integer
            Get
                Return _pri_Peso
            End Get
            Set(ByVal Value As Integer)
                _pri_Peso = Value
            End Set
        End Property
#End Region

    End Class


    Public Class SGW_CategoriasInfo

#Region "Private Members"
        Private _iDCategoria As Integer
        Private _portalID As Integer
        Private _descripcion As String = String.Empty
#End Region

#Region "Constructors"
        ' initialization
        Public Sub New()
        End Sub

        Public Sub New(ByVal iDCategoria As Integer, ByVal portalID As Integer, ByVal descripcion As String)
            Me.IDCategoria = iDCategoria
            Me.PortalID = portalID
            Me.Descripcion = descripcion
        End Sub
#End Region

#Region "Public Properties"
        Public Property IDCategoria() As Integer
            Get
                Return _iDCategoria
            End Get
            Set(ByVal Value As Integer)
                _iDCategoria = Value
            End Set
        End Property

        Public Property PortalID() As Integer
            Get
                Return _portalID
            End Get
            Set(ByVal Value As Integer)
                _portalID = Value
            End Set
        End Property

        Public Property Descripcion() As String
            Get
                Return _descripcion
            End Get
            Set(ByVal Value As String)
                _descripcion = Value
            End Set
        End Property
#End Region

    End Class
    Public Class SGW_SubCategoriasInfo

#Region "Private Members"
        Private _iDSubcategoria As Integer
        Private _sC_PortalID As Integer
        Private _sC_CategoriaID As Integer
        Private _sc_Descripcion As String = String.Empty
#End Region

#Region "Constructors"
        ' initialization
        Public Sub New()
        End Sub

        Public Sub New(ByVal iDSubcategoria As Integer, ByVal sC_PortalID As Integer, ByVal sC_CategoriaID As Integer, ByVal sc_Descripcion As String)
            Me.IDSubcategoria = iDSubcategoria
            Me.SC_PortalID = sC_PortalID
            Me.SC_CategoriaID = sC_CategoriaID
            Me.Sc_Descripcion = sc_Descripcion
        End Sub
#End Region

#Region "Public Properties"
        Public Property IDSubcategoria() As Integer
            Get
                Return _iDSubcategoria
            End Get
            Set(ByVal Value As Integer)
                _iDSubcategoria = Value
            End Set
        End Property

        Public Property SC_PortalID() As Integer
            Get
                Return _sC_PortalID
            End Get
            Set(ByVal Value As Integer)
                _sC_PortalID = Value
            End Set
        End Property

        Public Property SC_CategoriaID() As Integer
            Get
                Return _sC_CategoriaID
            End Get
            Set(ByVal Value As Integer)
                _sC_CategoriaID = Value
            End Set
        End Property

        Public Property Sc_Descripcion() As String
            Get
                Return _sc_Descripcion
            End Get
            Set(ByVal Value As String)
                _sc_Descripcion = Value
            End Set
        End Property
#End Region

    End Class

    Public Class SGW_MensajesInfo

#Region "Private Members"
        Private _mensajeID As Integer
        Private _men_Portal As String = String.Empty
        Private _men_UsuarioID As Integer
        Private _men_HiloID As Integer
        Private _men_FechaMensaje As DateTime
        Private _men_Mensaje As String = String.Empty
        Private _men_IpDesde As String = String.Empty
        Private _DisplayName As String
#End Region

#Region "Constructors"
        ' initialization
        Public Sub New()
        End Sub

        Public Sub New(ByVal mensajeID As Integer, ByVal men_Portal As String, ByVal men_UsuarioID As Integer, ByVal men_HiloID As Integer, ByVal men_FechaMensaje As DateTime, ByVal men_Mensaje As String, ByVal men_IpDesde As String)
            Me.MensajeID = mensajeID
            Me.Men_Portal = men_Portal
            Me.Men_UsuarioID = men_UsuarioID
            Me.Men_HiloID = men_HiloID
            Me.Men_FechaMensaje = men_FechaMensaje
            Me.Men_Mensaje = men_Mensaje
            Me.Men_IpDesde = men_IpDesde
        End Sub
#End Region

#Region "Public Properties"
        Public Property MensajeID() As Integer
            Get
                Return _mensajeID
            End Get
            Set(ByVal Value As Integer)
                _mensajeID = Value
            End Set
        End Property

        Public Property Men_Portal() As String
            Get
                Return _men_Portal
            End Get
            Set(ByVal Value As String)
                _men_Portal = Value
            End Set
        End Property

        Public Property Men_UsuarioID() As Integer
            Get
                Return _men_UsuarioID
            End Get
            Set(ByVal Value As Integer)
                _men_UsuarioID = Value
            End Set
        End Property

        Public Property Men_HiloID() As Integer
            Get
                Return _men_HiloID
            End Get
            Set(ByVal Value As Integer)
                _men_HiloID = Value
            End Set
        End Property

        Public Property Men_FechaMensaje() As DateTime
            Get
                Return _men_FechaMensaje
            End Get
            Set(ByVal Value As DateTime)
                _men_FechaMensaje = Value
            End Set
        End Property

        Public Property Men_Mensaje() As String
            Get
                Return _men_Mensaje
            End Get
            Set(ByVal Value As String)
                _men_Mensaje = Value
            End Set
        End Property

        Public Property Men_IpDesde() As String
            Get
                Return _men_IpDesde
            End Get
            Set(ByVal Value As String)
                _men_IpDesde = Value
            End Set
        End Property

        Public Property DisplayName() As String
            Get
                Return _DisplayName
            End Get
            Set(ByVal Value As String)
                _DisplayName = Value
            End Set
        End Property
#End Region

    End Class

    Public Class SGW_ConfiguracionInfo

#Region "Private Members"
        Private _idConfig As Integer
        Private _cfg_PortalID As Integer
        Private _cfg_Descripcion As String = String.Empty
        Private _cfg_Valor As String = String.Empty
#End Region

#Region "Constructors"
        ' initialization
        Public Sub New()
        End Sub

        Public Sub New(ByVal idConfig As Integer, ByVal cfg_PortalID As Integer, ByVal cfg_Descripcion As String, ByVal cfg_Valor As String)
            Me.IdConfig = idConfig
            Me.cfg_PortalID = cfg_PortalID
            Me.cfg_Descripcion = cfg_Descripcion
            Me.cfg_Valor = cfg_Valor
        End Sub
#End Region

#Region "Public Properties"
        Public Property IdConfig() As Integer
            Get
                Return _idConfig
            End Get
            Set(ByVal Value As Integer)
                _idConfig = Value
            End Set
        End Property

        Public Property cfg_PortalID() As Integer
            Get
                Return _cfg_PortalID
            End Get
            Set(ByVal Value As Integer)
                _cfg_PortalID = Value
            End Set
        End Property

        Public Property cfg_Descripcion() As String
            Get
                Return _cfg_Descripcion
            End Get
            Set(ByVal Value As String)
                _cfg_Descripcion = Value
            End Set
        End Property

        Public Property cfg_Valor() As String
            Get
                Return _cfg_Valor
            End Get
            Set(ByVal Value As String)
                _cfg_Valor = Value
            End Set
        End Property
#End Region

    End Class

End Namespace

